unit unitBLLFileInfo;

interface
uses Classes, unitFileInfo, unitDALFileInfo;

type
{ TBLLFileInfo }
  TBLLFileInfo = class(TObject)
  private
    dal: TDALFileInfo;
  protected
  public
    constructor Create;
    destructor Destroy; override;
    procedure Build(model: TFileInfo; strFullFileName: string);

  published
  end;
implementation

{ TBLLFileInfo }


procedure TBLLFileInfo.Build(model: TFileInfo; strFullFileName: string);
begin
  dal.Build(model, strFullFileName);
end;

constructor TBLLFileInfo.Create;
begin
  dal := TDALFileInfo.Create;
end;

destructor TBLLFileInfo.Destroy;
begin
  dal.Free;
  inherited;
end;

end.

